home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / GETNBL.f < prev    next >
Text File  |  1992-07-31  |  685b  |  22 lines
  1.       SUBROUTINE GETNBL(STRING,SNBLK,NN)
  2. *-----------------------------------------------------------------------
  3. *   
  4. *--- extracts non-blank characters  
  5. *--- input  
  6. *    STRING     input string - full length taken
  7. *--- output 
  8. *    SNBLK      string of non-blank (to max. length)
  9. *    NN         # of non-blank put in SNBLK 
  10. *-----------------------------------------------------------------------
  11.       CHARACTER *(*) STRING,SNBLK,STEMP*1   
  12.       LUP=LEN(SNBLK)
  13.       NN=0  
  14.       DO 10 I=1,LEN(STRING) 
  15.          STEMP=STRING(I:I)  
  16.          IF (STEMP.EQ.' ') GOTO 10  
  17.          IF (NN.EQ.LUP) GOTO 999
  18.          NN=NN+1
  19.          SNBLK(NN:NN)=STEMP 
  20.    10 CONTINUE  
  21.   999 END   
  22.